home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 1 / CU Amiga Magazine CD-ROM Special Edition (1995)(EMAP Images)(GB)[Issue 1995-11].iso / Aminet / comm / mail / thor201pch.lha / PatchTHOR20 < prev    next >
Encoding:
Text File  |  1995-05-15  |  1.5 KB  |  51 lines
  1. ;
  2. ;    Bugfix patch for THOR 2.0 - uses SPatch Copyright (C) SAS Institute, Inc.
  3. ;
  4.  
  5. ; Patch the THOR executable
  6. echo "Patching THOR...."
  7. spatch -pthor.pch `getenv THOR/THORPath`thor
  8. copy THOR.new `getenv THOR/THORPath`THOR
  9. delete THOR.new
  10.  
  11. ; Patch the ConfigTHOR executable
  12. echo "Patching ConfigTHOR...."
  13. spatch -pconfigthor.pch `getenv THOR/THORPath`ConfigTHOR
  14. copy ConfigTHOR.new `getenv THOR/THORPath`ConfigTHOR
  15.  
  16. delete ConfigTHOR.new >nil:
  17.  
  18. ; Patch the bbsread.library
  19. echo "Patching bbsread.library...."
  20. spatch -pbbsread.library.pch `getenv THOR/THORPath`libs/bbsread.library
  21. copy bbsread.new `getenv THOR/THORPath`libs/bbsread.library
  22.  
  23. delete bbsread.new >nil:
  24.  
  25. ; Patch the utgui.library
  26. echo "Patching utgui.library...."
  27. spatch -putgui.library.pch `getenv THOR/THORPath`libs/utgui.library
  28. copy utgui.new `getenv THOR/THORPath`libs/utgui.library
  29.  
  30. delete utgui.new >nil:
  31.  
  32. ; Patch the THOR.guide documentation
  33. echo "Patching THOR.guide...."
  34. spatch -pthor.guide.pch `getenv THOR/THORPath`docs/thor.guide
  35. copy THOR.new `getenv THOR/THORPath`docs/THOR.guide
  36.  
  37. delete THOR.new >nil:
  38.  
  39. ; Patch the BBSReadRexx.guide documentation
  40. echo "Patching BBSReadRexx.guide...."
  41. spatch -pBBSReadRexx.guide.pch `getenv THOR/THORPath`docs/BBSReadRexx.guide
  42. copy BBSReadRexx.new `getenv THOR/THORPath`docs/BBSReadRexx.guide
  43.  
  44. delete BBSReadRexx.new >nil:
  45.  
  46. ; Copy some small stuff over.
  47. Copy bin/#? `getenv THOR/THORPath`bin/
  48. Copy scripts/#? `getenv THOR/THORPath`scripts/
  49. Copy rexx/#? `getenv THOR/THORPath`rexx/
  50. wait 2
  51.